! button to copy and paste sources
sub SourceButtons,#doPaste,#countSOURs
  if #doPaste is true
    hskip 2
    cell linkbutton
    !image "PasteSour"
    !set border shadowlesssquare
    set border shadowlesssquare offset 3
    text local("Paste Sources")
    ScriptType Format
    ScriptLink "PasteSources.gcscpt"
    sizetofit -1
    !sizetofit
    help local("Click to paste previously copied sources here")
  endif
  
  if #countSOURs!=0
    hskip 12
    cell linkbutton
    !image "CopySour"
    !set border shadowlesssquare
    set border shadowlesssquare offset 3
    text local("Copy Source")
    ScriptType Format
    ScriptLink "CopySources.gcscpt"
    sizetofit -1
    !sizetofit
    help local("Click to copy a source")
  endif
endSub